home *** CD-ROM | disk | FTP | other *** search
/ 10,000 Designer Photos / 10,000 designer photos.iso / menu.dxr / 00011_UI Pointer Change.ls < prev    next >
Encoding:
Text File  |  1999-04-14  |  3.1 KB  |  41 lines
  1. property pointerStyle, customImage, customMask, currentPointer, Rpointerstyle, RCustomImage, RCustomMask, useCustom, useCustomR, changeBegin, changeEnd
  2.  
  3. on beginSprite me
  4.   if changeBegin then
  5.     ChangeCursor(me)
  6.   end if
  7. end
  8.  
  9. on endSprite me
  10.   if changeEnd then
  11.     restoreCursor(me)
  12.   end if
  13. end
  14.  
  15. on ChangeCursor me
  16.   currentPointer = translate_cursor(me, pointerStyle, customImage, customMask, useCustom)
  17.   cursor(currentPointer)
  18. end
  19.  
  20. on restoreCursor me
  21.   currentPointer = translate_cursor(me, Rpointerstyle, RCustomImage, RCustomMask, useCustomR)
  22.   cursor(currentPointer)
  23. end
  24.  
  25. on translate_cursor me, setting, image, mask, Custom
  26.   if Custom then
  27.     val = [member(image), member(mask)]
  28.     return val
  29.   end if
  30.   return setting
  31. end
  32.  
  33. on getPropertyDescriptionList
  34.   p_list = [#changeBegin: [#comment: "Change Pointer on BeginSprite:", #format: #boolean, #default: 0], #changeEnd: [#comment: "Restore Pointer on EndSprite:", #format: #boolean, #default: 0], #pointerStyle: [#comment: "Pointer Image:", #format: #cursor, #default: 1], #useCustom: [#comment: "Use Custom Pointer Image:", #format: #boolean, #default: 0], #customImage: [#comment: "Custom Image:", #format: #bitmap, #default: member(1)], #customMask: [#comment: "Custom Mask:", #format: #bitmap, #default: member(1)], #Rpointerstyle: [#comment: "Restored Pointer Image:", #format: #cursor, #default: 1], #useCustomR: [#comment: "Restore Custom Pointer Image:", #format: #boolean, #default: 0], #RCustomImage: [#comment: "Restored Custom Image:", #format: #bitmap, #default: member(1)], #RCustomMask: [#comment: "Restored Custom Mask:", #format: #bitmap, #default: member(1)]]
  35.   return p_list
  36. end
  37.  
  38. on getBehaviorDescription
  39.   return "Changes the pointer image to one of the pointers included with Director, or to a  1-bit bitmapped castmember. Attach the behavior to a sprite or place it in the script channel." & RETURN & "PARAMETERS:" & RETURN & "ΓÇó Change on BeginSprite - Turn this option on to change the pointer in the frame where the sprite begins." & RETURN & "ΓÇó Change on EndSprite - Turn this option on to restore the pointer in the frame after the sprite ends." & RETURN & "ΓÇó Pointer - Choose one of Director's included pointers." & RETURN & "ΓÇó Use Custom - Turn this option on to use a cast member for a pointer instead of one of Director's included pointers." & RETURN & "ΓÇó Custom Image  - ( optional ) Choose which cast member to use as a pointer image. This setting is ignored if Use Custom isn't on." & RETURN & "ΓÇó Custom Mask - ( optional ) Choose a cast member to use as a mask image." & RETURN & "ΓÇó Restored Pointer - Choose one of Director's included pointers to be displayed when the sprite ends." & RETURN & "ΓÇó Restore Custom - Turn this option on to display a cast member when the sprite ends." & RETURN & "ΓÇó Restored Custom Image  - ( optional ) Choose a cast member to display as the pointer image when the sprite ends." & RETURN & "ΓÇó Restored Custom Mask - ( optional ) Choose a cast member to use as a mask image when the sprite ends.  " & RETURN & "MESSAGES:" & RETURN & "ΓÇó ChangeCursor - Changes the pointer to the specified image." & RETURN & "ΓÇó RestoreCursor - Restores the original pointer image."
  40. end
  41.